100 AD=828:POKE53280,14:POKE53281,6
110 PRINT CHR$(147)"[154]REWRITE: SELF-MODIFYING BASIC":PRINT
120 PRINT "COPYRIGHT 1989":PRINT "COMPUTE! PUBLICATIONS, INC."
130 PRINT "ALL RIGHTS RESERVED":PRINT
140 FOR I=AD TO AD+109:READ D:POKE I,D:CK=CK+D:NEXT
150 IF CK<>13757 THEN PRINT "ERROR IN DATA STATEMENTS"
160 PRINT "TO USE, ENTER:":PRINT "SYS"STR$(AD)",LINE NUMBER,NEW LINE$"
170 DATA 032,253,174,032,138,173,032,247
180 DATA 183,032,019,166,144,090,165,095
190 DATA 133,251,165,096,133,252,032,253
200 DATA 174,032,158,173,032,163,182,170
210 DATA 240,069,201,089,176,069,133,002
220 DATA 160,000,177,034,153,000,002,200
230 DATA 196,002,208,246,169,000,153,000
240 DATA 002,165,122,072,165,123,072,169
250 DATA 000,133,122,169,002,133,123,032
260 DATA 121,165,104,133,123,104,133,122
270 DATA 136,132,002,160,004,177,251,240
280 DATA 014,169,032,196,002,176,003,185
290 DATA 252,001,145,251,200,208,238,096
300 DATA 076,227,168,076,113,165